Eagles Nest BBS 7

home *** CD-ROM | disk | FTP | other *** search

/ Eagles Nest BBS 7 / Eagles_Nest_Mac_Collection_Disc_7.TOAST / Internet⁄Other Nets / HTMLEdit112 / HTML.edit 1.1.2 distribution / HTML.edit v1.1.2 / background_5539.xml next >

Wrap

Extensible Markup Language | 1994-07-14 | 96KB | 1,643 lines

<?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" > <background> <id>5539</id> <filler1>0</filler1> <bitmap>BMAP_6216.pbm</bitmap> <cantDelete> <true /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <false /> </dontSearch> <link rel="stylesheet" type="text/css" href="stylesheet_3088.css" /> <part> <id>13</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <true /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>264</left> <top>87</top> <right>291</right> <bottom>103</bottom> </rect> <style>transparent</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Futura</font> <textSize>10</textSize> <textStyle>plain</textStyle> <textHeight>13</textHeight> <name>hdrSize</name> <script>on mouseUpput "" into meend mouseUp</script> </part> <part> <id>14</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <true /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>323</left> <top>87</top> <right>350</right> <bottom>103</bottom> </rect> <style>transparent</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Futura</font> <textSize>10</textSize> <textStyle>plain</textStyle> <textHeight>13</textHeight> <name>ftrSize</name> <script>on mouseUpput "" into meend mouseUp</script> </part> <part> <id>16</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>264</left> <top>105</top> <right>319</right> <bottom>119</bottom> </rect> <style>rectangle</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Futura</font> <textSize>10</textSize> <textStyle>plain</textStyle> <textHeight>13</textHeight> <name>unused</name> <script></script> </part> <part> <id>4</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <true /> </autoTab> <lockText> <true /> </lockText> <rect> <left>2</left> <top>22</top> <right>510</right> <bottom>41</bottom> </rect> <style>rectangle</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>17</textHeight> <name>title</name> <script>on mouseUprenameDocumentend mouseUpon mouseWithinif the visible of fld id 12 thenballoon "Title Bar"&return&return&¬¨"The title bar displays the name of the tags used to create the tag index of your document."else balloon "Title Bar"&return&return&¬¨"The title bar displays the name of the current document. This can be changed by clicking on"&&¬¨"the title bar or by choosing 'Rename Document‚Ä¶' from the File menu.",the width of fld id 4/2,12,1end mouseWithin</script> </part> <part> <id>25</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>2</left> <top>22</top> <right>34</right> <bottom>41</bottom> </rect> <style>opaque</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>4021</icon> <textAlign>center</textAlign> <font>Futura</font> <textSize>10</textSize> <textStyle>plain</textStyle> <name>TopLeft</name> <script></script> </part> <part> <id>1</id> <type>field</type> <visible> <false /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>2</left> <top>55</top> <right>510</right> <bottom>77</bottom> </rect> <style>scrolling</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <true /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Courier</font> <textSize>10</textSize> <textStyle>plain</textStyle> <textHeight>13</textHeight> <name>header</name> <script>on closeFieldshowTextStatspass closeFieldend closeFieldon mouseWithinballoon "Header Area"&return&return&¬¨"This is the Header area. Use the Master Headers to help create a standard appearance for a group of documents.",¬¨the width of me/2,the height of me/2,1end mouseWithin</script> </part> <part> <id>2</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>2</left> <top>58</top> <right>510</right> <bottom>321</bottom> </rect> <style>scrolling</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <true /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Courier</font> <textSize>10</textSize> <textStyle>plain</textStyle> <textHeight>13</textHeight> <name>body</name> <script>on closeFieldshowTextStatspass closeFieldend closeFieldon mouseWithinballoon "Body Area"&return&return&¬¨"This is the Body area, where the bulk of your document content resides."&&¬¨"Note that the <BODY> tag begins in the Body area and its closing </BODY> tag should appear"&&¬¨"after all document content, either in the Body or Footer area.",the width of me/2,the height of me/2,7end mouseWithin</script> </part> <part> <id>3</id> <type>field</type> <visible> <false /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>2</left> <top>242</top> <right>510</right> <bottom>324</bottom> </rect> <style>scrolling</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <true /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Courier</font> <textSize>10</textSize> <textStyle>plain</textStyle> <textHeight>13</textHeight> <name>footer</name> <script>on closeFieldshowTextStatspass closeFieldend closeFieldon mouseWithinballoon "Footer Area"&return&return&¬¨"This is the Footer area. Use the Master Footers to help create a standard appearance"&&¬¨"for a group of documents, or provide a common set of hypertext links for a group of documents.",¬¨the width of me/2,the height of me/2,6end mouseWithin</script> </part> <part> <id>6</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <true /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>2</left> <top>323</top> <right>510</right> <bottom>340</bottom> </rect> <style>rectangle</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Futura</font> <textSize>10</textSize> <textStyle>plain</textStyle> <textHeight>14</textHeight> <name>status</name> <script></script> </part> <part> <id>8</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>421</left> <top>323</top> <right>494</right> <bottom>340</bottom> </rect> <style>rectangle</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>right</textAlign> <font>Futura</font> <textSize>10</textSize> <textStyle>plain</textStyle> <textHeight>14</textHeight> <name>page</name> <script>on mouseUpsetPageNumberend mouseUpon mouseWithinballoon "Page Indicator"&return&return&¬¨"Displays the page number of current document.",38,8,5end mouseWithin</script> </part> <part> <id>10</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>303</left> <top>2</top> <right>490</right> <bottom>20</bottom> </rect> <style>transparent</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>right</textAlign> <font>Futura</font> <textSize>10</textSize> <textStyle>condense</textStyle> <textStyle>outline</textStyle> <textHeight>13</textHeight> <name>lastSaved</name> <script></script> </part> <part> <id>73</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>399</left> <top>323</top> <right>422</right> <bottom>340</bottom> </rect> <style>rectangle</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Futura</font> <textSize>10</textSize> <textStyle>plain</textStyle> <name>H3</name> <script>on mouseDownglobal hNumif hNum is "" then put 1 into hNumput "H1;H2;H3;H4;H5;H6" into mget the loc of meget HPopupMenu(m,hNum,item 2 of it - 7,item 1 of it + 12)if item 1 of it ‚â† "" thenput item 3 of it into hNumset the name of bg btn id 73 of cd 1 of bg "Editor" to "H"&hNumend ifend mouseDownon mouseWithinballoon "Current Heading Level"&return&return&¬¨"You can set a text selection to any of the six heading levels using the Heading popup"&&¬¨"menu. The Command-Shift-H shortcut will set the selection to the heading level designated"&&¬¨"by this field, which reflects the last selected level.",12,8,5end mouseWithin</script> </part> <part> <id>21</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>3</left> <top>23</top> <right>21</right> <bottom>40</bottom> </rect> <style>opaque</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>4124</icon> <textAlign>left</textAlign> <font>Futura</font> <textSize>10</textSize> <textStyle>plain</textStyle> <name>Show Palette</name> <script>on importHTML fileNameglobal indexedlock screenput the hilite of cd btn id 26 of cd "prefs" into convertLF2CR -- convert LF -> CR on Importput the hilite of cd btn id 34 of cd "prefs" into parseHTML -- parse HTML on Importif the paramCount = 0 thenanswer file "Select the file to import:" of type "TEXT"if it = "" then exit ImportHTML else put it into fileNameif not (length(fld id 1 & fld id 2 & fld id 3) = 0) thenanswer "Would you like to overwrite the current document or"&&¬¨"create a new one?" with "Cancel" or "OverWrite" or "New"if it = "Cancel" thenif viz("Progress") then close window "Progress"exit to HyperCardelse if it = "OverWrite" then clearDocument noDialogelse newDocumentelse clearDocumentelse newDocumentput stackName(fileName) into fld "title"unlock screenlock screensetIndexed FALSEopen file fileNameget the resultif it ‚â† "" thenanswer "IMPORT ERROR:"&return&itexit to hyperCardend ifset cursor to watchput 0 into szrepeatread from file fileName for 1000if it = "" then exit repeatadd length(it) to szif sz > 30000 thenanswer "Sorry, but the imported document has run over the 30,000 character limit for this editor. Your imported document was truncated to"&&length(fld id 2)&&"characters."exit repeatend ifif convertLF2CR then put rep(it,numToChar(10),return) after fld id 2else put it after fld id 2bzend repeatput "imported "&sz&" chars" into fld "lastSaved"showTextStatsif (("<HEAD>" is in fld id 2) and ("</HEAD>" is in fld id 2)) or ("</BODY>" is in fld id 2) thenif parseHTML then get "Yes"else answer "Parse HTML on Import:"&return&¬¨"HTML Codes for a header and/or body have been found in the imported text. Separate text into Header, Body and Footer edit areas?" with "No" or "Yes"if it = "Yes" thenparseHTMLmoveHEADparseBODYHFToggle FALSEend ifend ifclose file fileNameunlock screen with dissolve fastend importHTMLon exportHTML gglobal fileCreatorput (the paramCount > 0) into groupSaveif length(fld id 1) + length(fld id 2) + length(fld id 3) ‚â§ 3 thenif groupSave then answer "Export empty file?"&return&quote&fld id 4&quote with "Cancel" or "Export" or "Skip"else answer "Export empty file?" with "Continue" or "Cancel"if it = "Cancel" thenif viz("Progress") then close window "Progress"exit to HyperCardelse if it = "Skip" then exit exportHTMLend ifif fld "title" ‚â† "" then put fld "title" into theFileNameelse put "Untitled-"&number(this cd)-1&".html" into theFileNameput the hilite of cd btn id 24 of cd "prefs" into convertDateCodes-- create a new fileif groupSave ‚â† TRUE thenask file "Enter the Export file name:" with theFileNameput it into theFileNameelseput thePath(the long name of this stack) before theFileNameend ifif theFileName = "" then exit to HyperCardif groupSave then bzelse set cursor to watchopen file theFileNameif the result ‚â† "" thenanswer the resultexit to HyperCardend if-- begin write:if fld id 1 ‚â† "" thenif convertDateCodes then get insertCurrentDate(fld id 1) else get fld id 1if the last character of it ‚â† return then put return after itwrite it to file theFileNameend ifif fld id 2 ‚â† "" thenif convertDateCodes then get insertCurrentDate(fld id 2) else get fld id 2if the last character of it ‚â† return then put return after itwrite it to file theFileNameend ifif fld id 3 ‚â† "" thenif convertDateCodes then get insertCurrentDate(fld id 3) else get fld id 3write it to file theFileNameend if-- end write.close file theFileNameif fileCreator ‚â† "" then get changeFileType(theFileName,"TEXT",fileCreator)if word 1 of it ‚â† "noError:" then answer "ERROR:"&return&"Unable to change file type ('TEXT') or creator ('"&fileCreator&"')."put stackName(theFileName) into fld "title"put "updated: "&the short date&" "&the short time into fld id 10if groupSave then bink else bink e3send exportHTMLon indexStackglobal indexed,indexList,cardIDListif the short id of this cd = 2292 then put "" into cd fld "Index"set cursor to Indexput (number(this cd) = 1) into fromIndexlock screenpush cdlock messagesgo cd "index"put "" into indexListput "" into cd fld "Index"put "" into charCountListput "" into cd fld "charCountList"put "" into lastSavedListput "" into cd fld "lastSavedList"put "" into cardIDListput "" into cd fld "cardIDList"go first cd of bg "Editor"put number(cds in this bg) into endOpif endOp > 3 and fromIndexthen progressWindow "¬©Dome","Progress","Indexing documents‚Ä¶"&return&"Type ‚åò-. to halt processing.",4130repeat with i = 1 to endOpgo cd i of this bgput the short id of this cd&return after cardIDListput fld "title"&return after indexListput number(chars in fld id 1)+number(chars in fld id 2)+number(chars in fld id 3)&¬¨" chars"&return after charCountListif fld id 10 ‚â† "" then get fld id 10 else get "not saved"put it&return after lastSavedListif viz("Progress") then set thePercent of window "Progress" to (i/endOp)*100end repeatgo cd id 2292if last char of indexList = return then delete last char of indexListput indexList into cd fld "Index"put return after indexListput cardIDList into cd fld "cardIDList"put charCountList into cd fld "charCountList"put lastSavedList into cd fld "lastSavedList"if viz("Progress") then close window "Progress"setIndexed TRUEpop cdunlock screenend indexStack-- ‚Ä¢on mouseUpif there is a window "HTMLTools" thenif viz("HTMLTools") then close window "HTMLTools" else show window "HTMLTools"else if there is a window "HTMLToolsColor" thenif viz("HTMLToolsColor") then close window "HTMLToolsColor" else show window "HTMLToolsColor"else showToolsend mouseUpon mouseWithinballoon "Show HTML Tool Palette"&return&return&¬¨"Clicking this button alternately shows or hides the HTML Tool Palette."&return&return&¬¨"Except for the Help button, the palette buttons are all popUp menus. More detailed Help"&&¬¨"can be found in the Help section.",6,6,1end mouseWithin</script> </part> <part> <id>26</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>2</left> <top>323</top> <right>20</right> <bottom>340</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>4128</icon> <textAlign>center</textAlign> <font>Futura</font> <textSize>10</textSize> <textStyle>plain</textStyle> <name>Equinox Logo</name> <script>on mouseUpshowAboutend mouseUp</script> </part> <part> <id>27</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>340</left> <top>324</top> <right>364</right> <bottom>339</bottom> </rect> <style>opaque</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>4143</icon> <textAlign>center</textAlign> <font>Futura</font> <textSize>10</textSize> <textStyle>plain</textStyle> <name>Last</name> <script>on mouseUpvisual wipe left very fastif number(this cd)-1 = number(cds in this bg) then bink a2else go last cd in this bgend mouseUpon mouseWithinballoon "Go To Last Document"&return&return&¬¨"Click on this button to view the last document in the Editor."&return&return&¬¨"The number of documents the editor can store is limited only by your hard disk space.",12,8,5end mouseWithin</script> </part> <part> <id>28</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>310</left> <top>324</top> <right>334</right> <bottom>339</bottom> </rect> <style>opaque</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>4142</icon> <textAlign>center</textAlign> <font>Futura</font> <textSize>10</textSize> <textStyle>plain</textStyle> <name>Next</name> <script>on mouseUpvisual wipe left very fastif number(cds) = 5 then go next cdelse if number(this cd) = number(cds) - 3 then go first cd of this bgelse go nextend mouseUpon mouseWithinballoon "Go To Next Document"&return&return&¬¨"Click on this button to view the next document in the Editor."&return&return&¬¨"If you are viewing the last document in the editor, you'll loop around to view the first document.",12,8,5end mouseWithin</script> </part> <part> <id>29</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>280</left> <top>324</top> <right>304</right> <bottom>339</bottom> </rect> <style>opaque</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>4141</icon> <textAlign>center</textAlign> <font>Futura</font> <textSize>10</textSize> <textStyle>plain</textStyle> <name>Prev</name> <script>on mouseUpvisual wipe right very fastif number(cds) = 5 then go prev cdelse if number(this cd) = 2 then go cd (number(cds) - 3)else go prevend mouseUpon mouseWithinballoon "Go To Previous Document"&return&return&¬¨"Click on this button to view the previous document in the Editor."&return&return&¬¨"If you are viewing the first document in the editor, you'll wrap around to view the last card.",12,8,5end mouseWithin</script> </part> <part> <id>30</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>250</left> <top>324</top> <right>274</right> <bottom>339</bottom> </rect> <style>opaque</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>4140</icon> <textAlign>center</textAlign> <font>Futura</font> <textSize>10</textSize> <textStyle>plain</textStyle> <name>First</name> <script>on mouseUpvisual wipe right very fastif number(this cd) = 2 then bink a2else go first cd in this bgend mouseUpon mouseWithinballoon "Go To First Document"&return&return&¬¨"Click on this button to view the first document in the Editor.",12,8,5end mouseWithin</script> </part> <part> <id>32</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>18</left> <top>40</top> <right>510</right> <bottom>56</bottom> </rect> <style>rectangle</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Futura</font> <textSize>10</textSize> <textStyle>plain</textStyle> <name>URL</name> <script></script> </part> <part> <id>9</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <true /> </autoTab> <lockText> <false /> </lockText> <rect> <left>68</left> <top>40</top> <right>498</right> <bottom>56</bottom> </rect> <style>transparent</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Futura</font> <textSize>10</textSize> <textStyle>plain</textStyle> <textHeight>14</textHeight> <name>URL</name> <script>on closeFieldglobal theURLput me into theURLpass closeFieldend closeFieldon mouseWithinballoon "URL Field"&return&return&¬¨"Use the URL popUp menu to create an editable URL from one of the editor documents. Typing"&&¬¨"Command-Shift-A creates a hypertext link using the current selection as hot text.",the width of me - 15,9,0end mouseWithin</script> </part> <part> <id>47</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>375</left> <top>41</top> <right>499</right> <bottom>55</bottom> </rect> <style>opaque</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>right</textAlign> <font>Futura</font> <textSize>10</textSize> <textStyle>plain</textStyle> <name>H0:B0:F0</name> <script>on mouseUpset the name of me to "<text statistics>"wait 15showTextStatsend mouseUpon mouseWithinballoon "File Size Indicator"&return&return&¬¨"Updated on first viewing a document, upon exiting a field, or clicking on its text, the File Size"&&¬¨"Indicator displays the current size (in characters) of the Header, Body and Footer.",40,8,2end mouseWithin</script> </part> <part> <id>66</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>493</left> <top>40</top> <right>510</right> <bottom>56</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>4028</icon> <textAlign>center</textAlign> <font>Futura</font> <textSize>10</textSize> <textStyle>plain</textStyle> <name>scrollToTop</name> <script>on mouseUplock screenset the scroll of fld id 1 to 0set the scroll of fld id 2 to 0set the scroll of fld id 3 to 0unlock screen with wipe upend mouseUpon mouseWithinballoon "Scroll To Top"&return&return&¬¨"Clicking this button scrolls the Header, Body and Footer areas to the top of their respective scrolling areas.",12,8,2end mouseWithin</script> </part> <part> <id>33</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>2</left> <top>55</top> <right>510</right> <bottom>59</bottom> </rect> <style>rectangle</style> <showName> <false /> </showName> <highlight> <true /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Futura</font> <textSize>10</textSize> <textStyle>plain</textStyle> <name>dragHeader</name> <script>on mouseDownset the cursor to DragVerticalput the right of bg btn id 24 into wput the bottom of fld id 2 into hrepeat while the mouse is downget the mouseV - 1if it ‚â§ 55 then get 55 else if it ‚â• h-23 then get h-23sizeHeader w,itend repeatif it ‚â† 55 then put it into fld id 13end mouseDownon mouseWithinballoon "Header Separator"&return&return&¬¨"Drag this bar vertically to resize the Header area.",the width of me/2,4,2end mouseWithin</script> </part> <part> <id>36</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>220</left> <top>324</top> <right>244</right> <bottom>339</bottom> </rect> <style>opaque</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>4239</icon> <textAlign>center</textAlign> <font>Futura</font> <textSize>10</textSize> <textStyle>plain</textStyle> <name>Index</name> <script>on mouseUpvisual effect push right very fastgo cd "index"end mouseUpon mouseWithinballoon "Go To Index"&return&return&¬¨"Click on this button to go to the Index Card.",12,8+(item 2 of the scroll of cd window),5end mouseWithin</script> </part> <part> <id>37</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>2</left> <top>40</top> <right>22</right> <bottom>56</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>4137</icon> <textAlign>center</textAlign> <font>Futura</font> <textSize>10</textSize> <textStyle>bold</textStyle> <name>HFToggle</name> <script>on mouseUpHFToggle not ((the top of bg btn id 33 = 55) and (the bottom of bg btn id 38 = 1 + the top of bg btn id 24))end mouseUpon mouseWithinballoon "Header/Footer Toggle"&return&return&¬¨"Clicking this button alternately shows or hides the Header and Footer."&return&return&¬¨"You can click and drag the black horizontal separator bars to resize either the Header or Footer areas.",4,4,0end mouseWithin</script> </part> <part> <id>38</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>2</left> <top>320</top> <right>510</right> <bottom>324</bottom> </rect> <style>rectangle</style> <showName> <false /> </showName> <highlight> <true /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Futura</font> <textSize>10</textSize> <textStyle>plain</textStyle> <name>dragFooter</name> <script>on mouseDownset the cursor to DragVerticalput the top of fld id 2 into fT -- field topput the right of bg btn id 24 into wput the top of bg btn id 24 into fB -- field bottomrepeat while the mouse is downget the mouseV - 1if it ‚â§ fT+19 then get fT+19 else if it ‚â• fB-3 then get fB-3sizeFooter w,it,fT,fBend repeatif it ‚â† fB-3 then put it into fld id 14end mouseDownon mouseWithinballoon "Footer Separator"&return&return&¬¨"Drag this bar vertically to resize the Footer area.",the width of me/2,4,4end mouseWithin</script> </part> <part> <id>39</id> <type>button</type> <visible> <false /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>2</left> <top>52</top> <right>23</right> <bottom>60</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>4132</icon> <textAlign>center</textAlign> <font>Futura</font> <textSize>10</textSize> <textStyle>plain</textStyle> <name>HeaderPopUp</name> <script>on mouseDownget headerList(showEmpty)get "Add HTML Language Tags"&return&¬¨ -- 1"Add HTML Header Tags"&return&¬¨ -- 2"Add HTML Title Tags"&return&¬¨ -- 3"(-"&return&"Insert Master Header,"&it&return&¬¨ -- 5"Save As Master Header,"&it&return&¬¨ -- 6"Edit Master Headers" -- 7get HPopupMenu(it,0,item 2 of the loc of me - 2,12)if it = "" then exit to HyperCardif item 3 of it = 1 thensetUndoHTMLLanguageelse if item 3 of it = 2 thensetUndoHTMLHeaderelse if item 3 of it = 3 thensetUndoHTMLTitleelse if item 3 of it = 5 and item 4 of it ‚â† 0 thenget trim(cd fld id (item 4 of it) of cd "mH")if it ‚â† "" thensetUndoput it into fld "header"else answer "Selected Master Header was empty."else if item 3 of it = 6 and item 4 of it ‚â† 0 then put fld "header" into cd fld id (item 4 of it) of cd "mH"else if item 3 of it = 7 then go cd "mH"showTextStatsend mouseDownon mouseWithinballoon "Header PopUp Menu"&return&return&¬¨"Click and hold down on this button to display the Master Header popup menu."&return&return&¬¨"Clicking on the Help arrow located in the top right of the editor window displays more"&&¬¨"detailed information on the available menu commands.",6,4,1end mouseWithin</script> </part> <part> <id>40</id> <type>button</type> <visible> <false /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>2</left> <top>238</top> <right>23</right> <bottom>247</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>4133</icon> <textAlign>center</textAlign> <font>Futura</font> <textSize>10</textSize> <textStyle>plain</textStyle> <name>FooterPopUp</name> <script>on mouseDownget footerList(showEmpty)get "Add HTML Language Tags"&return&¬¨ -- 1"(-"&return&"Insert Master Footer,"&it&return&¬¨ -- 3"Save As Master Footer,"&it&return&¬¨ -- 4"Edit Master Footers" -- 5put "(" before item 4 of line 4 of itget HPopupMenu(it,0,item 2 of the loc of me - 2,12,Chicago,12)if it = "" then exit to HyperCardif item 3 of it = 1 thensetUndoHTMLLanguageelse if item 3 of it = 3 and item 4 of it ‚â† 0 thenget trim(cd fld id (item 4 of it) of cd "mF")if it ‚â† "" thensetUndoput it into fld "footer"else answer "Selected Master Footer was empty."else if item 3 of it = 4 and item 4 of it ‚â† 0 then put fld "footer" into cd fld id (item 4 of it) of cd "mF"else if item 3 of it = 5 thenvisual effect zoom opengo cd "mF"end ifshowTextStatsend mouseDownon mouseWithinballoon "Footer PopUp Menu"&return&return&¬¨"Click and hold down on this button to display the Master Footer popup menu."&return&return&¬¨"Clicking on the Help arrow located in the top right of the editor window displays more detailed"&&¬¨"information on the available menu commands.",6,4,6end mouseWithin</script> </part> <part> <id>42</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>2</left> <top>54</top> <right>23</right> <bottom>63</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>4131</icon> <textAlign>center</textAlign> <font>Futura</font> <textSize>10</textSize> <textStyle>plain</textStyle> <name>BodyPopUp</name> <script>on mouseDownput "Add HTML Body Tags"&return&¬¨ -- 1"Transfer Header Text to Header"&return&"(-"&return&¬¨ -- 2"Add All Structural Tags"&return&¬¨ -- 4"Check Document Structure" into m -- 5get the loc of meget HPopupMenu(m,0,item 2 of it - 2,item 1 of it)if it = "" then exit to HyperCardelse if item 3 of it = 1 thensetUndoHTMLBodyelse if item 3 of it = 2 thensetUndomoveHEADparseHTMLHFToggle FALSEelse if item 3 of it = 4 thensetUndomoveHEADHTMLLanguageHTMLHeaderHTMLBodyHTMLTitleHFToggle FALSEelse if item 3 of it = 5 thensetUndomoveHEADparseHEADparseBODYparseHTMLHFToggle FALSEend ifshowTextStatsend mouseDownon mouseWithinballoon "Body PopUp Menu"&return&return&¬¨"Click and hold down on this button to display the Body popup menu."&return&return&¬¨"Clicking on the Help arrow located in the top right of the editor window displays more detailed"&&¬¨"information on the available menu commands.",6,4,0end mouseWithin</script> </part> <part> <id>12</id> <type>field</type> <visible> <false /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <true /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <true /> </autoTab> <lockText> <true /> </lockText> <rect> <left>2</left> <top>22</top> <right>510</right> <bottom>41</bottom> </rect> <style>rectangle</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>17</textHeight> <name>IndexTitle</name> <script>on mouseUprenameDocumentend mouseUpon mouseWithinballoon "Title Bar"&return&return&¬¨"The title bar displays the name of the tags used to create the tag index of your document."end mouseWithin</script> </part> <part> <id>44</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>33</left> <top>22</top> <right>65</right> <bottom>41</bottom> </rect> <style>opaque</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>4024</icon> <textAlign>center</textAlign> <font>Futura</font> <textSize>10</textSize> <textStyle>bold</textStyle> <name>TitleBarL</name> <script>on mouseUprenameDocumentend mouseUpon mouseWithinif the visible of fld id 12 thenballoon "Title Bar"&return&return&¬¨"The title bar displays the name of the tags used to create the tag index of your document."else balloon "Title Bar"&return&return&¬¨"The title bar displays the name of the current document. This can be changed by clicking on"&&¬¨"the title bar or by choosing 'Rename Document‚Ä¶' from the File menu.",-1*(the width of fld id 4)/2,12,1end mouseWithin</script> </part> <part> <id>45</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>447</left> <top>22</top> <right>479</right> <bottom>41</bottom> </rect> <style>opaque</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>4024</icon> <textAlign>center</textAlign> <font>Futura</font> <textSize>10</textSize> <textStyle>bold</textStyle> <name>TitleBarR</name> <script>on mouseUprenameDocumentend mouseUpon mouseWithinif the visible of fld id 12 thenballoon "Title Bar"&return&return&¬¨"The title bar displays the name of the tags used to create the tag index of your document."else balloon "Title Bar"&return&return&"The title bar displays the name of the current document."&&¬¨" This can be changed by clicking on the title bar or by choosing 'Rename Document‚Ä¶' from the File menu.",the width of fld id 4/2,12,2end mouseWithin</script> </part> <part> <id>46</id> <type>button</type> <visible> <false /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>2</left> <top>22</top> <right>34</right> <bottom>41</bottom> </rect> <style>opaque</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>4022</icon> <textAlign>center</textAlign> <font>Futura</font> <textSize>10</textSize> <textStyle>bold</textStyle> <name>HeaderPopUp</name> <script>on mouseUpset the icon of bg btn id 46 to 4022showIndex FALSEend mouseUpon mouseDownset the icon of bg btn id 46 to 4023end mouseDownon mouseLeaveset the icon of bg btn id 46 of cd 1 of bg "Editor" to 4022end mouseLeaveon mouseWithinballoon "Index Window Close Box"&return&return&¬¨"Click on this close box to hide the Index field and resume editing of your document."end mouseWithin</script> </part> <part> <id>24</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>493</left> <top>323</top> <right>510</right> <bottom>340</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>4030</icon> <textAlign>center</textAlign> <font>Futura</font> <textSize>10</textSize> <textStyle>plain</textStyle> <name>GrowRect</name> <script>on setDocumentRect x,y -- sets document window to width,heightlock screenif the paramCount = 0 thenput the width of cd window - 2 into xput the height of cd window - 11 into yend ifif x < 446 then put 446 into x -- 432if y < 141 then put 141 into yhide fld id 1set the rect of fld id 2 to 2,58,x,y-10hide fld id 3set the rect of fld id 4 to 2,22,x,41set the rect of fld id 12 to the rect of fld id 4set the rect of fld id 6 to 2,y-8,x,y+9set the loc of bg btn id 73 to x-100,yset the loc of fld id 8 to x-53,yif x < 460 then hide fld id 10 else show fld id 10 at x-114,11set the rect of fld id 11 to 2,40,x,y+9set the loc of bg btn id 22 to x-8,9set the loc of bg btn id 23 to x-16,31set the loc of bg btn id 24 to x-9,yset the loc of bg btn id 26 to 11,yset the loc of bg btn id 36 to x-278,yset the loc of bg btn id 30 to x-248,yset the loc of bg btn id 29 to x-218,yset the loc of bg btn id 28 to x-188,yset the loc of bg btn id 27 to x-158,yset the loc of bg btn id 52 to x-128,yset the rect of bg btn id 32 to 18,40,x,56set the rect of fld id 9 to 68,40,x-12,56 -- url fieldset the rect of bg btn id 33 to 2,55,x,59set the rect of bg btn id 38 to 2,y-11,x,y-7hide bg btn id 39hide bg btn id 40set the loc of bg btn id 42 to 12,58set the loc of bg btn id 45 to x-47,31set the loc of bg btn id 66 to x-9,48set the loc of bg btn id 47 to x-73,48set the loc of bg btn id 77 to x-48,60set the loc of bg btn id 78 to 3,60set the rect of bg btn id 79 to 3,55,x-48,66set the rect of bg btn id 80 to 2,55,x-16,66set the rect of bg btn id 82 to 2,55,x-16,66unlock screenend setDocumentRecton mouseDownHFToggle TRUEhide bg btn id 26put the height of cd window - 11 into maxHput the width of cd window - 2 into maxWrepeat until the mouse is upget the mouseH+8if it > maxW then get maxWput it into mHget the mouseVif it > maxH then get maxHsetDocumentRect mH,itput "drag to size: ("&(the right of fld id 2)-1&","&(the bottom of fld id 6)-1&")" into fld "status"end repeatput 76 into fld id 13put (the top of bg btn id 24)-22 into fld id 14advertiseend mouseDownon mouseWithinballoon "Document Resize Box"&return&return&¬¨"Drag this box to resize the current editor window. The Scroll Window (Command-E)"&&¬¨"allows the resizing of the application window, and the position of"&&¬¨"the viewing rectangle within the larger available application workspace.",12,8,5end mouseWithin</script> </part> <part> <id>35</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>46</left> <top>42</top> <right>66</right> <bottom>54</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>24</titleWidth> <icon>4138</icon> <textAlign>left</textAlign> <font>Futura</font> <textSize>10</textSize> <textStyle>plain</textStyle> <name>URL</name> <script>on mouseDownglobal indexed,indexList,theURLset cursor to watchif indexed ‚â† TRUE then indexStackget trim(cd fld "URLs" of cd "Prefs")if it ‚â† "" then put trim(indexList)&return&"(-"&return&it into melse put indexList into mset cursor to handget HPopUpMenu(m,0,43,48,Futura,10)if it = "" then exit mouseDownelse get (item 1 of it) -- "<A HREF="&quote&(item 1 of it)&quote&">‚Ä°</A>"put it into fld id 9put it into theURLend mouseDownfunction docList -- returns list of documentspush cdset the cursor to watchlock screenlock messagesget ""repeat with i = 1 to number(cds in this bg)go cd i of this bgif fld "title" ‚â† "" then put fld "title"&return after itend repeatif last char of it is return then delete last char of itpop cdunlock screenreturn itend docListon mouseWithinballoon "URL PopUp Menu"&return&return&¬¨"Use the URL (Uniform Resource Locator) popUp menu to create an editable URL from the title of one of"&&¬¨"the editor documents or the global URL list (on Prefs card).",8,6,1end mouseWithin</script> </part> <part> <id>52</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>370</left> <top>324</top> <right>394</right> <bottom>339</bottom> </rect> <style>opaque</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>4144</icon> <textAlign>center</textAlign> <font>Futura</font> <textSize>10</textSize> <textStyle>plain</textStyle> <name>Back</name> <script>on mouseUpvisual barn door opengo recent cardend mouseUpon mouseWithinballoon "Go To Recent Document"&return&return&¬¨"Click on this button to view the last document you were viewing before arriving at the current document.",12,8,5end mouseWithin</script> </part> <part> <id>23</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>478</left> <top>22</top> <right>510</right> <bottom>41</bottom> </rect> <style>opaque</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>4020</icon> <textAlign>center</textAlign> <font>Futura</font> <textSize>10</textSize> <textStyle>plain</textStyle> <name>ZoomBox</name> <script>on mouseUpset the icon of bg btn id 23 to 4020zoomDocumentend mouseUpon mouseDownset the icon of bg btn id 23 to 4120if optionKey() = down thenput "512 x 342 - Classic;512 x 384 - 12"&quote&" RGB;640 x 400 - Portable;"&¬¨"640 x 480 - B&W or 13"&quote&" RGB;640 x 640 - Maximum;Minimize Window;Zoom Window" into mget the loc of meget HPopupMenu(m,0,item 2 of it - 2,item 1 of it)if it = "" then exit mouseDownelse get item 1 of itif it = "Minimize Window" thenset width of cd window to 448set height of cd window to 152else if it = "Zoom Window" thenget item 3 of the screenRectif it > 640 then get 640set width of cd window to itget item 4 of the screenRect-43if it > 640 then get 640set height of cd window to itelseset width of cd window to word 1 of itset height of cd window to word 3 of itend ifzoomDocumentend ifend mouseDownon mouseLeaveset the icon of bg btn id 23 of cd 1 of bg "Editor" to 4020end mouseLeaveon mouseWithinballoon "Zoom Box"&return&return&¬¨"Resizes the Editor window to match the rectangle of the current HTML.edit application window.",18,8,2end mouseWithin</script> </part> <part> <id>11</id> <type>field</type> <visible> <false /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>2</left> <top>40</top> <right>510</right> <bottom>340</bottom> </rect> <style>scrolling</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Courier</font> <textSize>10</textSize> <textStyle>plain</textStyle> <textHeight>13</textHeight> <name>index</name> <script></script> </part> <part> <id>31</id> <type>button</type> <visible> <false /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>0</left> <top>2</top> <right>640</right> <bottom>640</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Futura</font> <textSize>10</textSize> <textStyle>plain</textStyle> <name>obscure</name> <script>on mouseUpset the icon of bg btn id 56 to 4025HTMLHelp FALSEend mouseUpon mouseDownset the icon of bg btn id 56 to 4026end mouseDown</script> </part> <part> <id>22</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>492</left> <top>0</top> <right>513</right> <bottom>19</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>4241</icon> <textAlign>center</textAlign> <font>Futura</font> <textSize>10</textSize> <textStyle>plain</textStyle> <name>Help</name> <script>on mouseUpHTMLHelp "Contents"end mouseUpon mouseWithinballoon "Help Button"&return&return&¬¨"Click here for help on using HTML.edit and the HyperText Markup Language.",12,8,2end mouseWithin</script> </part> <part> <id>80</id> <type>button</type> <visible> <false /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <false /> </enabled> <rect> <left>2</left> <top>55</top> <right>494</right> <bottom>66</bottom> </rect> <style>rectangle</style> <showName> <false /> </showName> <highlight> <true /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name></name> <script></script> </part> <part> <id>82</id> <type>button</type> <visible> <false /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>2</left> <top>55</top> <right>494</right> <bottom>66</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name></name> <script>on mouseDownput 2 into LMput item 1 of the loc of bg btn id 77 into RTput item 1 of the loc of bg btn id 78 into LTput item 1 of the loc of bg btn id 77 into RTput the right of fld id 2 - 16 into RMput (the top of fld id 6)-5 into BMput item 2 of the loc of bg btn id 79 into cYget the textSize of bg btn id 79if it = 10 thenput 5 into tYput 6 into bYelse if it = 12 thenput 6 into tYput 7 into bYend ifif optionKey() = down thenlock screenget (the top of bg btn id 33) - 5set the loc of bg btn id 77 to RT,itset the loc of bg btn id 78 to LT,itset the rect of bg btn id 79 to LT,it-tY,RT,it+bYset the rect of bg btn id 80 to LM,it-tY,RM,it+bYset the rect of bg btn id 82 to LM,it-tY,RM,it+bYunlock screenelseset the cursor to DragRulerrepeat while the mouse is downlock screenget the mouseVif it < 45 then get 45else if it > BM then get BMset the rect of bg btn id 80 to LM,it-tY,RM,it+bYset the rect of bg btn id 79 to LT,it-tY,RT,it+bYset the rect of bg btn id 82 to LM,it-tY,RM,it+bYset the loc of bg btn id 77 to RT,itset the loc of bg btn id 78 to LT,itunlock screenend repeatend ifend mouseDown</script> </part> <part> <id>79</id> <type>button</type> <visible> <false /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>3</left> <top>55</top> <right>462</right> <bottom>66</bottom> </rect> <style>rectangle</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Courier</font> <textSize>10</textSize> <textStyle>plain</textStyle> <name>1 . |10 . |20 . |30 . |40 . |50 . |60 . |70 . |80 . |90 . |</name> <script>on mouseDownput the right of fld id 2 - 17 into RMput item 1 of the clickLoc into clickHput the left of me-clickH into LPtrput the right of me-clickH into RPtrput item 2 of the loc of bg btn id 79 into cYput item 1 of the loc of me into cXput round(the width of me/2) into halfWidthset cursor to DragHorizget the textSize of meif it = 10 thenput cY-5 into topYput cY+6 into botYelse if it = 12 thenput cY-6 into topYput cY+7 into botYend ifrepeat while the mouse is downlock screenget the mouseHif LPtr+it < 3 then get 3-LPtrelse if RPtr+it > RM then get RM-RPtrset the rect of me to LPtr+it,topY,RPtr+it,botYset the loc of bg btn id 77 to the right of me,cYset the loc of bg btn id 78 to the left of me,cYunlock screenend repeatend mouseDown</script> </part> <part> <id>78</id> <type>button</type> <visible> <false /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>65533</left> <top>54</top> <right>10</right> <bottom>67</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>4238</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Left Pointer</name> <script>on mouseDownput item 2 of the loc of me into cYput item 1 of the loc of bg btn id 77 into RTset cursor to DragHorizrepeat while the mouse is downlock screenget the mouseHif it < 3 then get 3if it > (RT-21) then get (RT-21)set the loc of me to it,cYset the rect of bg btn id 79 to it,cY-5,RT,cY+6unlock screenend repeatend mouseDown</script> </part> <part> <id>77</id> <type>button</type> <visible> <false /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>456</left> <top>54</top> <right>469</right> <bottom>67</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>4237</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Right Pointer</name> <script>on mouseDownput item 2 of the loc of me into cYput item 1 of the loc of bg btn id 78 into LTput the right of fld id 2 - 17 into RMhide bg btn id 26set cursor to DragHorizrepeat while the mouse is downlock screenget the mouseHif it > RM then get RMif it < (LT+21) then get (LT+21)set the loc of me to it,cYset the rect of bg btn id 79 to LT,cY-5,it,cY+6put trunc((it-LT-5)/6)&&"characters" into fld id 6unlock screenend repeatadvertiseend mouseDown</script> </part> <part> <id>57</id> <type>field</type> <visible> <false /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <true /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>6</left> <top>26</top> <right>432</right> <bottom>430</bottom> </rect> <style>shadow</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Futura</font> <textSize>10</textSize> <textStyle>plain</textStyle> <textHeight>13</textHeight> <name>helpShadow</name> <script></script> </part> <part> <id>15</id> <type>field</type> <visible> <false /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>10</left> <top>67</top> <right>426</right> <bottom>424</bottom> </rect> <style>scrolling</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <true /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Futura</font> <textSize>10</textSize> <textStyle>plain</textStyle> <textHeight>13</textHeight> <name>topicText</name> <script></script> </part> <part> <id>58</id> <type>button</type> <visible> <false /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>8</left> <top>28</top> <right>428</right> <bottom>45</bottom> </rect> <style>rectangle</style> <showName> <true /> </showName> <highlight> <true /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Futura</font> <textSize>10</textSize> <textStyle>bold</textStyle> <name>HTML.edit Help</name> <script>on mouseUpset the hilite of me to TRUEend mouseUp</script> </part> <part> <id>56</id> <type>button</type> <visible> <false /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>13</left> <top>29</top> <right>28</right> <bottom>44</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>4025</icon> <textAlign>center</textAlign> <font>Futura</font> <textSize>10</textSize> <textStyle>plain</textStyle> <name>Close</name> <script>on mouseUpset the icon of bg btn id 56 to 4025HTMLHelp FALSEend mouseUpon mouseDownset the icon of bg btn id 56 to 4026end mouseDownon mouseLeaveset the icon of bg btn id 56 of cd 1 of bg "Editor" to 4025end mouseLeave</script> </part> <part> <id>63</id> <type>button</type> <visible> <false /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>33</left> <top>30</top> <right>57</right> <bottom>43</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>4242</icon> <textAlign>center</textAlign> <font>Futura</font> <textSize>10</textSize> <textStyle>plain</textStyle> <name>HelpMenu</name> <script>on mouseDownglobal topicput "Create Window,Copy Field to Window,Save Window to Resource,Copy Window to Field" into mif there is not a window "HTML.edit Help" thenput "(" before item 2 of mput "(" before item 3 of mput "(" before item 4 of mend ifget the loc of meget HPopupMenu(m,0,item 2 of it - 7,item 1 of it + 1)if it ‚â† "" then get item 3 of itif it = 1 then -- load from resource, creating window if necessaryif fld id 70 = "" then put "Contents" into topicelse put fld id 70 into topicif there is not a window "HTML.edit Help" thenTextoid "HTML.edit Help","fld id 15",bigWindoidZoom,the rect of fld id 57set the UnLockAllowed of window "HTML.edit Help" to FALSEend ifelse if it = 2 then -- copy field to windowif there is a window "HTML.edit Help" and fld id 70 ‚â† "" thenset text of window "HTML.edit Help" to "fld id 15"end ifelse if it = 3 then -- save window to resourceif there is a window "HTML.edit Help" and fld id 70 ‚â† "" thenset ResExport of window "HTML.edit Help" to fld id 70end ifbinkelse if it = 4 then -- copy window text to fieldif there is a window "HTML.edit Help" thenset fieldTransfer of window "HTML.edit Help" to "fld id 15"end ifend ifend mouseDown</script> </part> <part> <id>70</id> <type>field</type> <visible> <false /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>10</left> <top>48</top> <right>426</right> <bottom>68</bottom> </rect> <style>rectangle</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <selectedLines> <integer>1</integer> </selectedLines> <textAlign>left</textAlign> <font>Futura</font> <textSize>12</textSize> <textStyle>bold</textStyle> <textHeight>17</textHeight> <name>topic</name> <script></script> </part> <content> <layer>background</layer> <id>39</id> <text>114</text> </content> <content> <layer>background</layer> <id>40</id> <text>352</text> </content> <content> <layer>background</layer> <id>13</id> <text>76</text> </content> <content> <layer>background</layer> <id>14</id> <text>301</text> </content> <content> <layer>background</layer> <id>6</id> <text> equinox development</text> </content> <content> <layer>background</layer> <id>57</id> <text><span class="style1"></span><span class="style98"> </span></text> </content> <name>Editor</name> <script>on openbackgroundglobal hNumif (the short id of this bg = 5539) thenif there is a menuItem "Import Document‚Ä¶" in menu "File" thenenable menuItem "Import Document‚Ä¶" of menu "File"enable menuItem "Export Document‚Ä¶" of menu "File"enable menuItem "Rename Document‚Ä¶" of menu "File"enable menuItem "Print Text" of menu "File"enable menuItem "Delete Document" of menu "Edit"enable menuItem "Tools" of menu "Windows"end ifend ifif hNum = "" then put the last char of short name of bg btn id 73 into hNumif not zoomOK() then zoomDocumentif the hilite of cd btn id 6 of cd "prefs" then showToolspass openbackgroundend openbackgroundon openCardsetPageNumbersetUndo clearshowTextStatspass openCardend openCardon closeCardif the visible of fld id 11 then showIndex FALSEif the visible of fld id 57 then HTMLHelp FALSEpass closeCardend closeCardon closeBackgroundhidePalettespass closeBackgroundend closeBackground-- ‚Ä¢ Helpon HTMLHelp newTopicglobal topicif (the environment ‚â† development) then pass HTMLHelpput newTopic into topicset cursor to watchlock screenput "fld id 15,fld id 57,fld id 70,bg btn id 31,bg btn id 56,bg btn id 58,bg btn id 63" into objectListif topic = FALSE thenrepeat with i = 1 to number(items in objectList)hide (item i of objectList)end repeatput "" into fld id 15put "" into fld id 70elseif not the visible of fld id 57 thenhidePalettesrepeat with i = 1 to number(items in objectList)show (item i of objectList)end repeatget (the bottom of fld id 6)set the rect of fld id 57 to 6,26,432,it-4set the rect of fld id 15 to 10,67,426,it-10set scroll of fld id 15 to 0show groupsseekPalettesend ifput topic into fld id 70end ifpass HTMLHelpend HTMLHelpon clickInText theWord,WName,w,s1,s2,f,s2,theStyle -- click in Help windowif theStyle contains "group" and theStyle contains "underline" then HTMLHelp theWordend clickInTexton paletteHelpdeHLif helpAvailable() thenhidePalettesshowDialog 5,4742,9,gY(143),gX(143)seekPalettesend ifend paletteHelp-- ‚Ä¢ File Menuon fileMenu -- handle commands sent by tool paletteput "About HTML.edit‚Ä¶;(-;New Document/N;Import Document‚Ä¶/O;Export Document‚Ä¶/S;"&¬¨"Rename Document‚Ä¶;Clear Document‚Ä¶;Print Text/P;(-;Go To,Document‚Ä¶/0,Index/1,Previous Document/2,Next Document/3,Master Headers/4,Master Footers/5,Preferences/6" into mget toolLoc()get HPopupMenu(m,0,item 2 of it + 3,item 1 of it + 19)deHLif i = "" then exit to HyperCardput item 3 of it into iput item 4 of it into jif i = 1 then showAboutelse if i = 3 then newDocumentelse if i = 4 then importHTMLelse if i = 5 then exportHTMLelse if i = 6 then renameDocumentelse if i = 7 then clearDocumentelse if i = 8 then printTextelse if i = 10 thenif j = 1 then selectFromIndexelse if j= 2 then go cd "Index"else if j= 3 then go prevelse if j= 4 then go nextelse if j= 5 then go cd "mH"else if j= 6 then go cd "mF"else if j= 7 thengo cd "prefs"end ifend ifend fileMenuon newCardglobal indexedput FALSE into indexedif fld "title" = "" then put "Untitled-"&number(this cd)-1&".html" into fld "title"pass newCardend newCardon deleteCardglobal indexedsetIndexed FALSEpass deleteCardend deleteCardon newDocumentdoMenu "New Card"end newDocumenton clearDocument modeglobal indexedlock screenif mode ‚â† "noDialog" then get saveCurrentText()if it = TRUE then exportHTMLelse if it = "Cancel" then exit to HyperCardput "" into fld "index"put "" into fld "indexTitle"put "" into fld id 1put "" into fld id 2put "" into fld id 3put "" into fld "lastSaved"put "" into bg btn "URL"put "" into fld "URL"put "Untitled-"&number(this cd)-1&".html" into fld "title"showIndex FALSEshowTextStatssetIndexed FALSEunlock screenend clearDocumenton exportHTMLsend "exportHTML" to bg btn id 21end exportHTMLon importHTML fileNamesend "importHTML" to bg btn id 21end importHTMLon renameDocumentglobal indexedask "Change the name of this document to:" with fld "title"if it = "" then exit renameDocumentelseif optionKey() = down then put it into fld "title"else put char 1 to 30 of it into fld "title"setIndexed FALSEend ifend renameDocumentfunction insertCurrentDate theText -- inserts current date in {-} given theTextput offset("{",theText) into startCharput offset("}",theText) into endCharif startChar = 0 or endChar = 0 then return theTextget char (startChar+1) to (endChar-1) of theTextif it = "Short Date" or it = "Abbreviated Date" or it = "Long Date" thendo "get the"&&itput char 1 to (startChar-1) of theText&it&char (endChar+1) to length(theText) of theText into theTextelse get theTextreturn theTextend insertCurrentDate-- ‚Ä¢ Utility Menuon utilityMenuglobal undoneput "(Show Ruler;(-;Insert Date,Short Date,Abbreviated Date,Long Date;" into mif the visible of bg btn id 77 then put 1 into chk else put 0 into chkif length(the selection) > 0 then put "Scan Entities;" after m else put "Insert Entity‚Ä¶;" after mput "(-;Replace‚Ä¶/R;Table Convert;Convert ¬∂ to <P>;Unwrap Text;" after mif LFinText() then put "Strip LineFeeds;(-;" after m else put "Add LineFeeds;(-;" after mif not undone then put "(" after mput "Undo HTML;Remove HTML/K" after mget toolLoc()put HPopupMenu(m,chk,item 2 of it + 3,item 1 of it + 49) into RdeHLIF it = "" then exit utilityMenuget item 3 of Rif it = 1 then setRuler not the visible of bg btn id 77else if it = 3 and item 2 of R ‚â† "" then HTMLDate item 2 of Relse if it = 4 then HTMLEntityelse if it = 6 then replaceTextelse if it = 7 then tableConvertelse if it = 8 then convertParagraphelse if it = 9 then unwrapelse if "LineFeeds" is in item 1 of R then setLF ("Add" is in R)else if it = 12 then setUndo restoreelse if it = 13 then DeHTMLend utilityMenuon HTMLEntityglobal entitiesput the selectedChunk into sChunkif length(the selection) = 0 thenif there is a window "Entities" then show window "Entities"else picture "Entities",resource,plainelse if length(the selection) > length(entities) thensetUndoset cursor to watchselect sChunkget the selectionput number(chars in entities) into endOpprogressWindow "¬©Dome","Progress","Replacing ISO Latin Entities‚Ä¶"&return&"Type ‚åò-. to halt processing.",4130repeat with i = 1 to endOpput char i of entities into srcget rep(it,src,ent2HTML(src))if i mod 5 = 0 and viz("Progress") then set thePercent of window "Progress" to (i/endOp)*100end repeatif viz("Progress") then close window "Progress"put it into the selectionbinkelsesetUndoselect sChunkset cursor to watchget ""put length(the selection) into endOpif endOp > 30then progressWindow "¬©Dome","Progress","Scanning for ISO Latin Entities‚Ä¶"&return&"Type ‚åò-. to halt processing.",4130repeat with i = 1 to endOpput ent2HTML(char i of the selection) after itif i mod 10 = 0 and viz("Progress") then set thePercent of window "Progress" to (i/endOp)*100end repeatput it into the selectionif viz("Progress") then close window "Progress"binkend ifend HTMLEntityon mouseDownInPicture windif wind = "Entities" then selectEntityelse close window windend mouseDownInPictureon selectEntityglobal charEntityMapif charEntityMap = "" then send setEntities to cd id 2292 -- create entity tableif there is a window "Entities" thenput round((item 1 of the clickLoc-item 1 of the loc of window "Entities") div 24)+1 into colput round((((item 2 of the clickLoc) - 16)-item 2 of the loc of window "Entities") div 22)+1 into rowif row = 7 and col > 4 then get item (col-4) of "<,>,&,""else get ent2HTML(item col of line row of charEntityMap)if "field" is not in the selectedChunk then put it into msgelse type itend ifend selectEntityfunction ent2HTML e -- returns HTML code given char entity > 127global HTMLEntityMapif HTMLEntityMap = "" then send setEntities to cd id 2292get charToNum(e)if it ‚â• 128 and it ‚â§ 244 thenget item (it - 127) of HTMLEntityMapif it = "" then return eelse return "&"&it&";"else return eend ent2HTMLfunction LFinTextif numToChar(10) is in fld id 1 then return TRUEif numToChar(10) is in fld id 2 then return TRUEif numToChar(10) is in fld id 3 then return TRUEelse return FALSEend LFinText-- ‚Ä¢ HTML Menuon HTMLMenuput "Title;Insert,Horizontal Rule,ISINDEX;Image‚Ä¶/G;"&¬¨"Format,Address,Blockquote,Bulleted List,Comment/-,Directory,Glossary,Listing,Menu,Numbered List,"&¬¨"Preformatted;(-;Index,Address,Blockquote,(Bulleted List,(Directory,(Glossary,Listing,(Menu,(Numbered List,Preformatted" into mget toolLoc()get HPopupMenu(m,0,item 2 of it + 3,item 1 of it + 75)deHLIF it = "" then exit HTMLMenuput item 2 of it into iput item 3 of it into Lif L = 1 thenif "bkgnd field 5" is in the selectedChunk then HTML TitleelseHTMLTitleend ifelse if L = 3 then HTMLImageelse if L = 6 thencheckOverflow "UNABLE TO INDEX:"put "" into fld "index"get item (item 4 of it) of "ADDRESS,BLOCKQUOTE,,,,LISTING,,,PRE"put indexHTML("<"&it&">","</"&it&">",fld id 1&fld id 2&fld id 3,"<"&it&">") into fld "index"showIndex TRUE,"< "&i&" Index >"binkelse if i = "Address" then HTMLAddresselse if i = "Bulleted List" then HTMLList "UL"else if i = "Directory" then HTMLList "DIR"else if i = "Glossary" then HTMLGlossaryelse if i = "Menu" then HTMLList "MENU"else if i = "Numbered List" then HTMLList "OL"else HTML iend HTMLMenu-- ‚Ä¢ HTML Structural Tagson HTMLLanguageget deleteHTML("<HTML>",123) or deleteHTML("<html>",123)if first char of fld id 1 ‚â† return and fld id 1 ‚â† "" then put return before fld id 1put "<HTML>" before fld id 1if last char of fld id 3 ‚â† return and fld id 3 ‚â† "" then put return&"</HTML>" after fld id 3else put "</HTML>" after fld id 3end HTMLLanguageon parseHTMLif deleteHTML("<HTML>",123) or deleteHTML("<html>",123) thenif first char of fld id 1 ‚â† return and fld id 1 ‚â† "" then put return before fld id 1put "<HTML>" before fld id 1if last char of fld id 3 ‚â† return and fld id 3 ‚â† "" then put return after fld id 3put "</HTML>" after fld id 3end ifend parseHTMLon HTMLHeaderif "<HEAD>" is in fld id 2 or "</HEAD>" is in fld id 2 thenanswer "There are already <HEAD> codes in the body of this document. Transfer the <HEAD> section to document header section?" with "Cancel" or "Ignore" or "Transfer"if it = "Transfer" thenmoveHEADelse if it = "Cancel" thenexit HTMLHeaderend ifelseif "<HEAD>" is not in fld id 1 thenif "<HTML>" is in fld id 1 then put return&"<HEAD>" after char (offset("<HTML>",fld id 1)+5) of fld id 1else put "<HEAD>" before fld id 1end ifif "</HEAD>" is not in fld id 1 thenif last char of fld id 1 ‚â† return then put return after fld id 1put "</HEAD>" after fld id 1end ifend ifend HTMLHeaderon parseHEADget deleteHTML("<HEAD>",123) or deleteHTML("<head>",123)HTMLHeaderend parseHEADon moveHEADput offset("<HEAD>",fld id 2) into startHEADput offset("</HEAD>",fld id 2) into endHEADif startHEAD = 0 and endHEAD = 0 then exit moveHEADelse if ("<HEAD>" is in fld id 1) or ("</HEAD>" is in fld id 1) thenprocError "There is at least one <HEAD> tag already in the document header. Please check your syntax."else if startHEAD = 0 and endHEAD ‚â† 0 thenprocError "Missing start tag ‚Äú<HEAD>‚Äù for header. There is an end tag ‚Äú</HEAD>‚Äù in the document body."else if startHEAD ‚â† 0 and endHead = 0 thenprocError "Missing end tag ‚Äú</HEAD>‚Äù for header. There is an start tag ‚Äú<HEAD>‚Äù in the document body."else if startHEAD ‚â• endHEAD thenprocError "End tag ‚Äú</HEAD>‚Äù occurs before start tag ‚Äú<HEAD>‚Äù in the document."elseget char startHEAD to (endHEAD+6) of fld id 2put it after fld id 1delete char startHEAD to (endHEAD+6) of fld id 2if char 1 of fld id 2 is return then delete char 1 of fld id 2end ifend moveHEADon HTMLBodyget deleteHTML("<BODY>",123) or deleteHTML("<body>",123)if first char of fld id 2 ‚â† return and fld id 2 ‚â† "" then put return before fld id 2put "<BODY>" before fld id 2if "</HTML>" is in fld id 2 thenget offset("</HTML>",fld id 2)delete char it to (it+6) of fld id 2if "</HTML>" is not in fld id 3 thenif last char of fld id 3 ‚â† return and fld id 3 ‚â† "" then put return after fld id 3put "</HTML>" after fld id 3end ifend ifif "</HTML>" is in fld id 3 thenget offset("</HTML>",fld id 3)if char (it-1) of fld id 3 is return then delete char (it-1) of fld id 3if last char of fld id 3 ‚â† return then put return after fld id 3get offset("</HTML>",fld id 3)put "</BODY>"&return&"</HTML>" into char it to (it+6) of fld id 3elseif last char of fld id 3 ‚â† return and fld id 3 ‚â† "" then put return after fld id 3put "</BODY>" after fld id 3end ifend HTMLBodyon parseBODYget offset("</BODY>",fld id 2)if it = 0 then get offset("</BODY>",fld id 3)if offset("<BODY>",fld id 2) = 0 and it = 0 then exit parseBODYelseget deleteHTML("<BODY>",123) or deleteHTML("<body>",123)HTMLBodyend ifend parseBODYon HTMLTitleif "<TITLE>" is in fld id 1 and "</TITLE>" is in fld id 1 thenget char (offset("<TITLE>",fld id 1)+7) to (offset("</TITLE>",fld id 1)-1) of fld id 1else get "Document Title"ask "Enter the online title for this document:" with itif it ‚â† "" then get "<TITLE>"&it&"</TITLE>"else exit HTMLTitleif "<TITLE>" is in fld id 1 and "</TITLE>" is in fld id 1 thenput it into char offset("<TITLE>",fld id 1) to (offset("</TITLE>",fld id 1)+7) of fld id 1else if "<HEAD>" is in fld id 1 then put return&it after char (offset("<HEAD>",fld id 1)+5) of fld id 1else if "<HTML>" is in fld id 1 then put return&it after char (offset("<HTML>",fld id 1)+5) of fld id 1else put it before fld id 1end HTMLTitle-- ‚Ä¢ Anchor Menuon anchorMenuput "Set Named Anchor‚Ä¶"&return&¬¨"Create HyperText Link‚Ä¶"&return&"(-"&return&"Create Link to,Previous Document/7,Next Document/8,Selected Document‚Ä¶/9"&return&"(-"&return&¬¨"Index Anchors"&return into mget number(cds in this bg)if (number(this cd) = 2) or (it = 1) then put "(" before item 2 of line 4 of mif (number(this cd)-1 = it) or (it = 1) then put "(" before item 3 of line 4 of mget toolLoc()get HPopupMenu(m,0,item 2 of it + 3,item 1 of it + 100)deHLput item 3 of it into Lput item 4 of it into iif L = 1 then HTMLNamedAnchorelse if L = 2 then HTMLLinkelse if L = 4 thenif i = 3 then HTMLLink 3,"Selected Document"else HTMLLink i,item 2 of itelse if L = 6 thencheckOverflow "UNABLE TO INDEX:"put "" into fld "index"get fld id 1&fld id 2&fld id 3put indexHTML("<A ","A>",it,"<A>") into fld "index"showIndex TRUE,"< Anchor Index >"binkend ifend anchorMenu-- ‚Ä¢ Heading Menuon headingMenuglobal hNumif hNum = "" then put 1 into hNumget the itemDelimiterset the itemDelimiter to ";"put "Heading 1;Heading 2;Heading 3;Heading 4;Heading 5;Heading 6;" into mput "/H" after item hNum of mput "(-;Index,<H1>,<H2>,<H3>,<H4>,<H5>,<H6>" after mset the itemDelimiter to itget toolLoc()get HPopupMenu(m,hNum,item 2 of it + 3,item 1 of it + 130)deHLif item 1 of it = "Index" thencheckOverflow "UNABLE TO INDEX:"put item 2 of it into prefixput prefix into suffixput "/" after char 1 of suffixput "" into fld "index"put indexHTML(prefix,suffix,fld id 1&fld id 2&fld id 3,prefix) into fld "index"showIndex TRUE,"< Heading Index >"binkelse if it ‚â† "" thenput item 3 of it into hNumHTML Headingend ifend headingMenu-- ‚Ä¢ Font Menuon fontMenuput "Physical Style,Bold,Italic,Typewriter,Underline,Strikethru,Superscript,Subscript;"&¬¨"Logical Style,Code,Citation,Definition,Emphasis,Strong Emphasis,Keyboard,Sample,Variable;(-;" into mif "master" is in the short name of this cd then put "(" after mput "Index,Bold,Italic,Typewriter,Underline,Strikethru,Superscript,Subscript,(-,Code,Citation,Definition,Emphasis,Strong Emphasis,Keyboard,Sample,Variable" after mget toolLoc()get HPopupMenu(m,0,item 2 of it + 3,item 1 of it + 156)deHLif "Style" is in item 1 of it then HTML item 2 of itelse if item 1 of it = "Index" thencheckOverflow "UNABLE TO INDEX:"put "" into fld "index"put fld id 1&fld id 2&fld id 3 into theTextget item (item 4 of it) of "B,I,TT,U,S,SUP,SUB,,CODE,CITE,DFN,EM,STRONG,KBD,SAMP,VAR"put indexHTML("<"&it&">","</"&it&">",theText,"<"&it&">") into fld "index"showIndex TRUE,"< "&it&" Index >"binkend ifend fontMenu-- ‚Ä¢ Utilityon commandKeyDown kIF k = "T" thenif there is a window "HTMLTools" then close window "HTMLTools"else if there is a window "HTMLToolsColor" then close window "HTMLToolsColor"else showToolswait 0ELSE IF k = "/" or k = "?" then HTMLHelpELSE IF k = "G" then HTMLImageELSE IF k = "0" then selectFromIndex -- √òELSE IF k = "H" then HTML HeadingELSE IF (shiftKey() = down) THENif k = "A" then HTMLLinkelse if k = "B" then HTML Boldelse if k = "C" then HTML Citationelse if k = "E" then HTML Emphasiselse if k = "I" then HTML Italicelse if k = "P" then HTML Preformattedelse if k = "R" then setRuler not the visible of bg btn id 77else if k = "U" then HTML Underlineelse if k = "S" then HTML "Strong Emphasis"else if k = "Z" then setUndo restoreelse pass commandKeyDownELSE if (shiftKey() ‚â† down) thenif k = "-" then HTML Commentelse if k = "7" then HTMLLink 1,"Previous Document"else if k = "8" then HTMLLink 2,"Next Document"else if k = "9" then HTMLLink 3,"Selected Document"else if k = "A" and "field" is in the selectedChunk then select text of the selectedFieldelse if k = "E" then set the visible of scroll window to not the visible of scroll windowelse if k = "K" then DeHTMLelse if k = "M" then set the visible of msg to not the visible of msgelse if k = "O" then importHTML -- ohelse if k = "P" then printTextelse if k = "R" then replaceTextelse if k = "S" then exportHTMLelse pass commandKeyDownEND IFend commandKeyDownfunction toolLocif there is a window("HTMLTools") then return the loc of window "HTMLTools"else if there is a window("HTMLToolsColor") then return the loc of window "HTMLToolsColor"end toolLocon deHL -- deHiliteif there is a window("HTMLTools")then set the hilitedButton of window "HTMLTools" to 0if there is a window("HTMLToolsColor")then set the hilitedButton of window "HTMLToolsColor" to 0end deHLon checkOverflow msgTitleget (length(fld id 1) + length(fld id 2) + length(fld id 3))if it > 30000 thenanswer msgTitle&return&return&¬¨"Sorry, but the combined Header, Body, and Footer text ("&it&" characters) exceeds the character limit for this function." with "Cancel"exit to HyperCardend ifend checkOverflowon showIndex mode,indexTitlelock screenif mode then get 4022 else get 4021set the visible of bg btn id 46 to modeset the visible of fld id 11 to modeset the visible of fld id 12 to modeif mode thenput indexTitle into fld id 12set the scroll of fld id 11 to 0else put "" into fld "index"unlock screenend showIndexfunction indexHTML prefix,suffix,container,codeName,noThermo -- return index <prefix [‚Ä¶] suffix> of containerif container = "" then return "Empty document."put 1 into startOpput length(container) into endOpif endOp > 300 and noThermo ‚â† TRUEthen progressWindow "¬©Dome","Progress","Indexing "&codeName&" codes‚Ä¶"&return&¬¨"Type ‚åò-. to halt processing.",4130put "" into indexput container into originalTextput TRUE into noPrefixput length(suffix)-1 into sfxLengthrepeatput offset(prefix,container) into startCharif viz("Progress") then set thePercent of window "Progress" to ((startChar-startOp)/(endOp-startOp))*100 else bzif startChar = 0 thenif noPrefix thenif there is a window "Progress" then close window "Progress"return "No HTML "&quote&codeName&quote&" codes in this document."else exit repeatelsebzput FALSE into noPrefixput "‚â§" into char startChar of container -- no mo findput offset(prefix,container) into nextStartCharput offset(suffix,container) + sfxLength into endCharif there is a window "Progress"then set thePercent of window "Progress" to ((endChar-startOp)/(endOp-startOp))*100 else bzif (endChar = 1 or endChar ‚â• nextStartChar) and nextStartChar ‚â† 0 thenif viz("Progress") then close window "Progress"return "HTML ERROR - Unclosed anchor: "&quote&¬¨char startChar to endChar of originalText&"‚Ä¶"&quoteelse-- put rep(char startChar to endChar of originalText,return," ")&return after indexput (char startChar to endChar of originalText)&return after indexput "‚â•" into char endChar of containerend ifend ifend repeatif viz("Progress") then close window "Progress"return indexend indexHTMLon convertLF modeif mode = TRUE thenput numToChar(10) into rplcput return into srchelseput numToChar(10) into srchput return into rplcend ifrepeat with i = 1 to 3put rep(fld id i,srch,rplc) into fld id iend repeatend convertLFfunction headerListput the paramcount = 1 into showEmptyset cursor to watchput "" into hListrepeat with i = 1 to 3get cd fld id (i+3) of cd "mH"if it = "" then get "Header "&i else get itif cd fld id i of cd "mH" = "" and showEmpty then put " <empty>" after itput it&"," after hListend repeatdelete last char of hListreturn hListend headerListfunction footerListput the paramcount = 1 into showEmptyset cursor to watchput "" into fListrepeat with i = 1 to 3get cd fld id (i+3) of cd "mF"if it = "" then get "Footer "&i else get itif cd fld id i of cd "mF" = "" and showEmpty then put " <empty>" after itput it&"," after fListend repeatdelete last char of fListreturn fListend footerList-- ‚Ä¢ bg aestheticson setRuler modelock screenset the visible of bg btn id 77 to modeset the visible of bg btn id 78 to modeset the visible of bg btn id 79 to modeset the visible of bg btn id 80 to modeset the visible of bg btn id 82 to modeif mode thenput 2 into LMput item 1 of the loc of bg btn id 77 into RTput item 1 of the loc of bg btn id 78 into LTput item 1 of the loc of bg btn id 77 into RTput the right of fld id 2 - 16 into RMget the textSize of bg btn id 79if it = 10 thenput 5 into tYput 6 into bYelse if it = 12 thenput 6 into tYput 7 into bYend ifget (the top of bg btn id 33) - 5set the loc of bg btn id 77 to RT,itset the loc of bg btn id 78 to LT,itset the rect of bg btn id 79 to LT,it-tY,RT,it+bYset the rect of bg btn id 80 to LM,it-tY,RM,it+bYset the rect of bg btn id 82 to LM,it-tY,RM,it+bYend ifunlock screenend setRuleron showTextStatsget length(fld id 1)+length(fld id 2)+length(fld id 3)set the numberformat to "0.###"get it/1000get "H"&length(fld id 1)&":B"&length(fld id 2)&":F"&length(fld id 3)set the name of bg btn id 47 to itend showTextStatson HFToggle shrunken -- zoom/unzoom header & footerlock screenif shrunken then get 55 else get fld id 13sizeHeader the right of bg btn id 24,itif it ‚â† 55 thenput it into fld id 13set the icon of bg btn id 37 to 4137else set the icon of bg btn id 37 to 4136put (the top of bg btn id 24)+1 into fBif shrunken then get fB - 4 else get fld id 14if it < 94 then get fB - 23sizeFooter the right of bg btn id 24,it,the top of fld id 2,fB-1unlock screenend HFToggleon sizeHeader w,h -- set size of header fieldlock screenset the visible of fld id 1 to (h ‚â† 55)if h > 55 then set the rect of fld id 1 to 2,55,w,h+1set the rect of bg btn id 33 to 2,h,w,h+4set the rect of fld id 2 to 2,h+3,w,(the top of bg btn id 38)+1set the visible of bg btn id 39 to (h > 56)set the loc of bg btn id 42 to 12,h+3unlock screenend sizeHeaderon sizeFooter w,h,fT,fB -- set size of footer fieldlock screenset the visible of fld id 3 to (h ‚â† fB+1)if h < fB then set the rect of fld id 3 to 2,h+3,w,fB+1set the rect of fld id 2 to 2,fT,w,h+1set the rect of bg btn id 38 to 2,h,w,h+4set the loc of bg btn id 40 to 12,h+3set the visible of bg btn id 40 to (h < fB-6)unlock screenend sizeFooteron setPageNumberput number(this cd)-1&" of "&number(cds in this bg) into fld id 8end setPageNumberon zoomDocumentsend setDocumentRect to bg btn id 24put 76 into fld id 13put (the top of bg btn id 24)-22 into fld id 14advertiseend zoomDocumenton advertiseshow bg btn id 26if the width of fld id 6 > 400 then get " equinox development"else if the width of fld id 6 > 343 then get " equinox"else get ""put it into fld "status"end advertiseon setCdFont n,sglobal wrapTextget "fld id 11,fld id 1,fld id 2,fld id 3"repeat with i = 1 to number of items in itif last word of item i of it > 100 thengo cd id (item i of it)next repeatend ifdo "set textFont of "&(item i of it)&" to "&ndo "set textSize of "&(item i of it)&" to "&sdo "set dontWrap of "&(item i of it)&" to not "&wrapTextend repeatend setCdFont</script> </background>